home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AOL File Library: 4,101 to 4,200
/
aol-file-protocol-4400-4101-to-4200.zip
/
AOLDLs
/
Shareware Demos
/
TOOTHPIK_ V3.0 Dental Office Mgr
/
TOTHDEMO.exe
/
APPONT98.MDX
(
.txt
)
< prev
next >
Wrap
dBASE Multiple Index
|
1997-05-03
|
216KB
|
7,513 lines
APPONT98
HOLIDAY
N730L
N800L
N830L
N900L
N930L
N1000L
N1030L
N1100L
N1130L
N1200L
N1230L
N100L
N130L
N200L
N230L
N300L
N330L
N400L
N430L
N500L
N530L
N600L
A_DATE
HOLIDAY
HOLIDAY
N730L
XXXXXXXXX
XXXXXXXXX
N730L
N800L
N800L
N830L
N830L
N900L
N900L
N930L
N930L
N1000L
N1000L
N1030L
N1030L
N1100L
N1100L
N1130L
N1130L
N1200L
XXXXXXXXX
XXXXXXXXX
N1200L
N1230L
XXXXXXXXX
XXXXXXXXX
N1230L
N100L
N100L
N130L
N130L
N200L
N200L
N230L
N230L
N300L
N300L
N330L
N330L
N400L
N400L
N430L
N430L
N500L
N500L
N530L
XXXXXXXXX
XXXXXXXXX
N530L
N600L
XXXXXXXXX
XXXXXXXXX
N600L
A_DATE
A_DATE
E ~
E
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX !
XXXXXXXXX "
XXXXXXXXX #
XXXXXXXXX $
XXXXXXXXX %
XXXXXXXXX &
XXXXXXXXX '
XXXXXXXXX (
XXXXXXXXX )
XXXXXXXXX *
XXXXXXXXX
E *
XXXXXXXXX ,
XXXXXXXXX -
XXXXXXXXX .
XXXXXXXXX /
XXXXXXXXX 0
XXXXXXXXX 1
XXXXXXXXX 2
XXXXXXXXX 3
XXXXXXXXX 4
XXXXXXXXX 5
XXXXXXXXX 6
XXXXXXXXX 7
XXXXXXXXX 8
XXXXXXXXX 9
XXXXXXXXX :
XXXXXXXXX ;
XXXXXXXXX <
XXXXXXXXX =
XXXXXXXXX >
XXXXXXXXX ?
XXXXXXXXX @
XXXXXXXXX A
XXXXXXXXX B
XXXXXXXXX C
XXXXXXXXX D
XXXXXXXXX E
XXXXXXXXX F
XXXXXXXXX G
XXXXXXXXX H
XXXXXXXXX I
XXXXXXXXX J
XXXXXXXXX K
XXXXXXXXX L
XXXXXXXXX M
XXXXXXXXX N
XXXXXXXXX O
XXXXXXXXX P
XXXXXXXXX Q
XXXXXXXXX R
XXXXXXXXX S
XXXXXXXXX T
XXXXXXXXX
E *
XXXXXXXXX V
XXXXXXXXX W
XXXXXXXXX X
XXXXXXXXX Y
XXXXXXXXX Z
XXXXXXXXX [
XXXXXXXXX \
XXXXXXXXX ]
XXXXXXXXX ^
XXXXXXXXX _
XXXXXXXXX `
XXXXXXXXX a
XXXXXXXXX b
XXXXXXXXX c
XXXXXXXXX d
XXXXXXXXX e
XXXXXXXXX f
XXXXXXXXX g
XXXXXXXXX h
XXXXXXXXX i
XXXXXXXXX j
XXXXXXXXX k
XXXXXXXXX l
XXXXXXXXX m
XXXXXXXXX n
XXXXXXXXX o
XXXXXXXXX p
XXXXXXXXX q
XXXXXXXXX r
XXXXXXXXX s
XXXXXXXXX t
XXXXXXXXX u
XXXXXXXXX v
XXXXXXXXX w
XXXXXXXXX x
XXXXXXXXX y
XXXXXXXXX z
XXXXXXXXX {
XXXXXXXXX |
XXXXXXXXX }
XXXXXXXXX ~
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX >
XXXXXXXXX @
XXXXXXXXX B
XXXXXXXXX D
XXXXXXXXX F
XXXXXXXXX H
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
N
P
R
T
V
X
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
^
`
b
d
f
h
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
n
p
r
t
v
x
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
~
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX !
XXXXXXXXX "
XXXXXXXXX #
XXXXXXXXX $
XXXXXXXXX %
XXXXXXXXX &
XXXXXXXXX '
XXXXXXXXX (
XXXXXXXXX )
XXXXXXXXX *
XXXXXXXXX
E *
XXXXXXXXX ,
XXXXXXXXX -
XXXXXXXXX .
XXXXXXXXX /
XXXXXXXXX 0
XXXXXXXXX 1
XXXXXXXXX 2
XXXXXXXXX 3
XXXXXXXXX 4
XXXXXXXXX 5
XXXXXXXXX 6
XXXXXXXXX 7
XXXXXXXXX 8
XXXXXXXXX 9
XXXXXXXXX :
XXXXXXXXX ;
XXXXXXXXX <
XXXXXXXXX =
XXXXXXXXX >
XXXXXXXXX ?
XXXXXXXXX @
XXXXXXXXX A
XXXXXXXXX B
XXXXXXXXX C
XXXXXXXXX D
XXXXXXXXX E
XXXXXXXXX F
XXXXXXXXX G
XXXXXXXXX H
XXXXXXXXX I
XXXXXXXXX J
XXXXXXXXX K
XXXXXXXXX L
XXXXXXXXX M
XXXXXXXXX N
XXXXXXXXX O
XXXXXXXXX P
XXXXXXXXX Q
XXXXXXXXX R
XXXXXXXXX S
XXXXXXXXX T
XXXXXXXXX
E *
XXXXXXXXX V
XXXXXXXXX W
XXXXXXXXX X
XXXXXXXXX Y
XXXXXXXXX Z
XXXXXXXXX [
XXXXXXXXX \
XXXXXXXXX ]
XXXXXXXXX ^
XXXXXXXXX _
XXXXXXXXX `
XXXXXXXXX a
XXXXXXXXX b
XXXXXXXXX c
XXXXXXXXX d
XXXXXXXXX e
XXXXXXXXX f
XXXXXXXXX g
XXXXXXXXX h
XXXXXXXXX i
XXXXXXXXX j
XXXXXXXXX k
XXXXXXXXX l
XXXXXXXXX m
XXXXXXXXX n
XXXXXXXXX o
XXXXXXXXX p
XXXXXXXXX q
XXXXXXXXX r
XXXXXXXXX s
XXXXXXXXX t
XXXXXXXXX u
XXXXXXXXX v
XXXXXXXXX w
XXXXXXXXX x
XXXXXXXXX y
XXXXXXXXX z
XXXXXXXXX {
XXXXXXXXX |
XXXXXXXXX }
XXXXXXXXX ~
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX !
XXXXXXXXX "
XXXXXXXXX #
XXXXXXXXX $
XXXXXXXXX %
XXXXXXXXX &
XXXXXXXXX '
XXXXXXXXX (
XXXXXXXXX )
XXXXXXXXX *
XXXXXXXXX
E *
XXXXXXXXX ,
XXXXXXXXX -
XXXXXXXXX .
XXXXXXXXX /
XXXXXXXXX 0
XXXXXXXXX 1
XXXXXXXXX 2
XXXXXXXXX 3
XXXXXXXXX 4
XXXXXXXXX 5
XXXXXXXXX 6
XXXXXXXXX 7
XXXXXXXXX 8
XXXXXXXXX 9
XXXXXXXXX :
XXXXXXXXX ;
XXXXXXXXX <
XXXXXXXXX =
XXXXXXXXX >
XXXXXXXXX ?
XXXXXXXXX @
XXXXXXXXX A
XXXXXXXXX B
XXXXXXXXX C
XXXXXXXXX D
XXXXXXXXX E
XXXXXXXXX F
XXXXXXXXX G
XXXXXXXXX H
XXXXXXXXX I
XXXXXXXXX J
XXXXXXXXX K
XXXXXXXXX L
XXXXXXXXX M
XXXXXXXXX N
XXXXXXXXX O
XXXXXXXXX P
XXXXXXXXX Q
XXXXXXXXX R
XXXXXXXXX S
XXXXXXXXX T
XXXXXXXXX
E *
XXXXXXXXX V
XXXXXXXXX W
XXXXXXXXX X
XXXXXXXXX Y
XXXXXXXXX Z
XXXXXXXXX [
XXXXXXXXX \
XXXXXXXXX ]
XXXXXXXXX ^
XXXXXXXXX _
XXXXXXXXX `
XXXXXXXXX a
XXXXXXXXX b
XXXXXXXXX c
XXXXXXXXX d
XXXXXXXXX e
XXXXXXXXX f
XXXXXXXXX g
XXXXXXXXX h
XXXXXXXXX i
XXXXXXXXX j
XXXXXXXXX k
XXXXXXXXX l
XXXXXXXXX m
XXXXXXXXX n
XXXXXXXXX o
XXXXXXXXX p
XXXXXXXXX q
XXXXXXXXX r
XXXXXXXXX s
XXXXXXXXX t
XXXXXXXXX u
XXXXXXXXX v
XXXXXXXXX w
XXXXXXXXX x
XXXXXXXXX y
XXXXXXXXX z
XXXXXXXXX {
XXXXXXXXX |
XXXXXXXXX }
XXXXXXXXX ~
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
"
$
&
(
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
.
0
2
4
6
8
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
>
@
B
D
F
H
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
N
P
R
T
V
X
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
^
`
b
d
f
h
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
!
"
#
$
%
&
'
(
)
*
E *
,
-
.
/
0
1
2
3
4
5
6
7
8
9
:
;
<
=
>
?
@
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
E *
V
W
X
Y
Z
[
\
]
^
_
`
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
{
|
}
~
E *
E *
E *
E
n
p
r
t
v
x
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX !
XXXXXXXXX "
XXXXXXXXX #
XXXXXXXXX $
XXXXXXXXX %
XXXXXXXXX &
XXXXXXXXX '
XXXXXXXXX (
XXXXXXXXX )
XXXXXXXXX *
XXXXXXXXX
E *
XXXXXXXXX ,
XXXXXXXXX -
XXXXXXXXX .
XXXXXXXXX /
XXXXXXXXX 0
XXXXXXXXX 1
XXXXXXXXX 2
XXXXXXXXX 3
XXXXXXXXX 4
XXXXXXXXX 5
XXXXXXXXX 6
XXXXXXXXX 7
XXXXXXXXX 8
XXXXXXXXX 9
XXXXXXXXX :
XXXXXXXXX ;
XXXXXXXXX <
XXXXXXXXX =
XXXXXXXXX >
XXXXXXXXX ?
XXXXXXXXX @
XXXXXXXXX A
XXXXXXXXX B
XXXXXXXXX C
XXXXXXXXX D
XXXXXXXXX E
XXXXXXXXX F
XXXXXXXXX G
XXXXXXXXX H
XXXXXXXXX I
XXXXXXXXX J
XXXXXXXXX K
XXXXXXXXX L
XXXXXXXXX M
XXXXXXXXX N
XXXXXXXXX O
XXXXXXXXX P
XXXXXXXXX Q
XXXXXXXXX R
XXXXXXXXX S
XXXXXXXXX T
XXXXXXXXX
E *
XXXXXXXXX V
XXXXXXXXX W
XXXXXXXXX X
XXXXXXXXX Y
XXXXXXXXX Z
XXXXXXXXX [
XXXXXXXXX \
XXXXXXXXX ]
XXXXXXXXX ^
XXXXXXXXX _
XXXXXXXXX `
XXXXXXXXX a
XXXXXXXXX b
XXXXXXXXX c
XXXXXXXXX d
XXXXXXXXX e
XXXXXXXXX f
XXXXXXXXX g
XXXXXXXXX h
XXXXXXXXX i
XXXXXXXXX j
XXXXXXXXX k
XXXXXXXXX l
XXXXXXXXX m
XXXXXXXXX n
XXXXXXXXX o
XXXXXXXXX p
XXXXXXXXX q
XXXXXXXXX r
XXXXXXXXX s
XXXXXXXXX t
XXXXXXXXX u
XXXXXXXXX v
XXXXXXXXX w
XXXXXXXXX x
XXXXXXXXX y
XXXXXXXXX z
XXXXXXXXX {
XXXXXXXXX |
XXXXXXXXX }
XXXXXXXXX ~
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX ~
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX !
XXXXXXXXX "
XXXXXXXXX #
XXXXXXXXX $
XXXXXXXXX %
XXXXXXXXX &
XXXXXXXXX '
XXXXXXXXX (
XXXXXXXXX )
XXXXXXXXX *
XXXXXXXXX
E *
XXXXXXXXX ,
XXXXXXXXX -
XXXXXXXXX .
XXXXXXXXX /
XXXXXXXXX 0
XXXXXXXXX 1
XXXXXXXXX 2
XXXXXXXXX 3
XXXXXXXXX 4
XXXXXXXXX 5
XXXXXXXXX 6
XXXXXXXXX 7
XXXXXXXXX 8
XXXXXXXXX 9
XXXXXXXXX :
XXXXXXXXX ;
XXXXXXXXX <
XXXXXXXXX =
XXXXXXXXX >
XXXXXXXXX ?
XXXXXXXXX @
XXXXXXXXX A
XXXXXXXXX B
XXXXXXXXX C
XXXXXXXXX D
XXXXXXXXX E
XXXXXXXXX F
XXXXXXXXX G
XXXXXXXXX H
XXXXXXXXX I
XXXXXXXXX J
XXXXXXXXX K
XXXXXXXXX L
XXXXXXXXX M
XXXXXXXXX N
XXXXXXXXX O
XXXXXXXXX P
XXXXXXXXX Q
XXXXXXXXX R
XXXXXXXXX S
XXXXXXXXX T
XXXXXXXXX
E *
XXXXXXXXX V
XXXXXXXXX W
XXXXXXXXX X
XXXXXXXXX Y
XXXXXXXXX Z
XXXXXXXXX [
XXXXXXXXX \
XXXXXXXXX ]
XXXXXXXXX ^
XXXXXXXXX _
XXXXXXXXX `
XXXXXXXXX a
XXXXXXXXX b
XXXXXXXXX c
XXXXXXXXX d
XXXXXXXXX e
XXXXXXXXX f
XXXXXXXXX g
XXXXXXXXX h
XXXXXXXXX i
XXXXXXXXX j
XXXXXXXXX k
XXXXXXXXX l
XXXXXXXXX m
XXXXXXXXX n
XXXXXXXXX o
XXXXXXXXX p
XXXXXXXXX q
XXXXXXXXX r
XXXXXXXXX s
XXXXXXXXX t
XXXXXXXXX u
XXXXXXXXX v
XXXXXXXXX w
XXXXXXXXX x
XXXXXXXXX y
XXXXXXXXX z
XXXXXXXXX {
XXXXXXXXX |
XXXXXXXXX }
XXXXXXXXX ~
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E *
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
E
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg
E T
E T
E
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
XXXXXXXXX
FORMAT
RELEASE WINDOW W1
CLEAR TYPEAHEAD
SET ESCAPE ON
ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),;
DBF(), MESSAGE()
***check for number of records ...limit = 50
n_rec = 0 && number of records
USE PATMAIN.DBF IN A ORDER TAG CUSTNO
USE PATCHARG.DBF IN B ORDER TAG
USE PATPAY.DBF IN C ORDER TAG CUSTNO
USE HISTORY.DBF IN D ORDER TAG CUSTNO
SELECT A && use paymain
n_rec = RECCOUNT()
IF n_rec > 50
** setup aray to hold id#s to delete
DECLARE d_aray[n_rec]
i_dex =1
GO TOP
SCAN WHILE i_dex <= (n_rec -50)
** put id#s in aray
d_aray[i_dex] = A->CUSTNO
DELETE
i_dex = i_dex +1
ENDSCAN
i_dex =1
SELECT B && use patcharg